home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side B).do / ASTRONOMY QUIZ.bas < prev    next >
BASIC Source File  |  1996-12-24  |  7KB  |  107 lines
  1. 10  REM  ASTRONOMY QUIZ
  2. 12  REM  PROGRAMMED BY
  3. 14  REM  ALLEN MAYNARD
  4. 15  DIM Q$(4,10),CH$(4,10,3),CA$(4,10)
  5. 16  DIM D(4)
  6. 17  GOSUB 100
  7. 18  FOR I = 1 TO 4:D(I) = 0: NEXT I
  8. 20  HOME : PRINT "     A S T R O N O M Y   Q U I Z"
  9. 28  PRINT 
  10. 30  PRINT "THERE ARE THREE LEVELS OF DIFFICULTY."
  11. 32  PRINT "THEY ARE:": PRINT : PRINT "     1. EASY": PRINT "     2. AVERAGE": PRINT "     3. HARD"
  12. 34  PRINT : PRINT "BONUS LEVEL IF YOU PASS THE HARD LEVEL."
  13. 38  PRINT 
  14. 40  INPUT "WHICH LEVEL DO YOU WANT TO TRY? ";L
  15. 42  IF L < > INT(L)  THEN L = 1: GOTO 20
  16. 50  IF L <1  OR L >3  THEN L = 1: GOTO 20
  17. 60  GOTO 190
  18. 100  FOR J = 1 TO 4
  19. 110  FOR I = 1 TO 10
  20. 120  READ Q$(J,I)
  21. 130  FOR K = 1 TO 3
  22. 140  READ CH$(J,I,K)
  23. 150  NEXT K
  24. 160  READ CA$(J,I)
  25. 170  NEXT I,J
  26. 180  RETURN 
  27. 190  IF D(L) = 1  THEN  PRINT : PRINT "YOU ALREADY DID THAT LEVEL": FOR I = 1 TO 1000: NEXT I: GOTO 20
  28. 192 D(L) = 1
  29. 200  FOR Z = 1 TO 1500: NEXT Z: FOR I = 1 TO 10
  30. 201  HOME 
  31. 202  IF L = 1  THEN  PRINT "EASY LEVEL"
  32. 203  IF L = 2  THEN  PRINT "AVERAGE LEVEL"
  33. 204  IF L = 3  THEN  PRINT "HARD LEVEL"
  34. 205  IF L = 4  THEN  PRINT "BONUS LEVEL"
  35. 206  PRINT "QUESTION NUMBER "I: PRINT 
  36. 210  PRINT Q$(L,I)
  37. 215  PRINT 
  38. 220  FOR K = 1 TO 3
  39. 230  PRINT  CHR$(64 +K)". "CH$(L,I,K)
  40. 235  PRINT 
  41. 240  NEXT K
  42. 250  INPUT "ANSWER HERE: ";A$
  43. 260  IF  MID$ (A$,1,1) = CA$(L,I)  THEN  GOTO 300
  44. 265  IF  MID$ (A$,1,1) < >"A"  AND  MID$ (A$,1,1) < >"B"  AND  MID$ (A$,1,1) < >"C"  THEN  GOTO 250
  45. 270  PRINT : PRINT "WRONG! THE ANSWER WAS "CA$(L,I)"."
  46. 275 Q(L) = Q(L) +1
  47. 277 QT = QT +1
  48. 280  GOTO 320
  49. 300  PRINT : PRINT "YOU ARE CORRECT!"
  50. 310 C(L) = C(L) +1:Q(L) = Q(L) +1
  51. 312 QT = QT +1:CT = CT +1
  52. 320  PRINT "SO FAR YOU HAVE GOTTEN "C(L)" OUT OF "Q(L): PRINT "QUESTIONS CORRECT AT LEVEL "L: PRINT "AND "CT" OUT OF "QT" CORRECT OVERALL."
  53. 325  FOR Z = 1 TO 1500: NEXT Z: REM  PAUSE
  54. 330  NEXT I
  55. 332  IF L = 3  AND C(L) >7  THEN  PRINT : PRINT "YOU HAVE PASSED THE HARD": PRINT "LEVEL AND YOU NOW QUALIFY FOR THE ": PRINT "BONUS LEVEL.":L = 4: GOTO 200
  56. 336  IF D(1) = 1  AND D(2) = 1  AND D(3) = 1  THEN  GOTO 355
  57. 340  INPUT "DO YOU WANT TO TRY AGAIN? ";A$
  58. 350  IF A$ = "Y"  OR A$ = "YES"  THEN  GOTO 20
  59. 355 TL = C(1) +C(2) *2 +C(3) *3 +C(4) *4
  60. 357  PRINT "YOU RATED "TL" OUT OF 100."
  61. 360  END 
  62. 10000  REM  EASY LEVEL DATA
  63. 10010  DATA  "THE PLANET THAT WE LIVE ON IS CALLED:","MARS","EARTH","SATURN","B"
  64. 10020  DATA "MOST OF THE WHITE SPECKES OF LIGHT IN   THE SKY WE SEE AT NIGHT ARE CALLED:","STARS","METEORS","PLANETS","A"
  65. 10030  DATA "THE BRIGHT OBJECT IN OUR DAYTIME SKY    IS CALLED:","THE EARTH","THE MOON","THE SUN","C"
  66. 10040  DATA "THE PLANET WITH A BIG RED SPOT ON IT    IS CALLED:","JUPITER","EARTH","MERCURY","A"
  67. 10050  DATA  "HOW LONG DOES THE EARTH TAKE TO MAKE    ONE ROTATION?","72 HOURS","6 HOURS","24 HOURS","C"
  68. 10060  DATA  "THE PLANET SATURN IS KNOWN MOSTLY FOR:","ITS MOONS","ITS RINGS","ITS TEMPERATURE","B"
  69. 10070  DATA "THE PLANET THAT HAD A CARTOON CHARACTER NAMED AFTER IT IS:","MARS","VENUS","PLUTO","C"
  70. 10080  DATA "THE PLANET THAT IS ALWAYS COVERED WITH  CLOUDS AND IS VERY HOT IS:","MERCURY","VENUS","MARS","B"
  71. 10090  DATA "ON JULY 20, 1969 WHAT DID APOLLO 11     LAND ON?","THE MOON","MARS","JUPITER","A"
  72. 10100  DATA "EVERY DAY THE MOON EFFECTS WHAT ON      THE EARTH?","THE TEMPERATURE","THE WIND","THE TIDES","C"
  73. 20000  REM  AVERAGE LEVEL DATA
  74. 20010  DATA "THE SIXTH PLANET FROM THE SUN IS CALLED:","URANUS","SATURN","NEPTUNE","B"
  75. 20020  DATA "WHICH PLANET HAS AN EAST POLE AND A     WEST POLE?","MERCURY","NEPTUNE","URANUS","C"
  76. 20030  DATA "TITAN IS A SATELLITE OF WHICH PLANET?","SATURN","EARTH","PLUTO","A"
  77. 20040  DATA "MARS HAS HOW MANY SATELLITES?","1","2","3","B"
  78. 20050  DATA "WHAT IS THE NAME OF OUR STAR?","SIRIUS","SOL","ALTAIR","B"
  79. 20060  DATA "THE CLOSEST STAR TO THE EARTH OTHER     THAN OUR OWN IS:","BETELGEUSE","ALPHA CENTAURI","PROCYON","B"
  80. 20070  DATA "HOW LONG DOES IT TAKE THE PLANET SATURN TO MAKE ONE COMPLETE REVOLUTION AROUND  THE SUN?","164.79 YEARS","29.46 YEARS","365.26 DAYS","B"
  81. 20080  DATA "HOW MANY PLANETS ARE IN OUR             SOLAR SYSTEM?","9","10","7","A"
  82. 20090  DATA "WHAT GALAXY ARE WE IN?","ANDROMEDA","MILKY WAY","URSA MAJOR","B"
  83. 20100  DATA "SOLAR ECLIPSES ONLY OCCUR:","DURING A FULL MOON","DURING A QUARTER MOON","DURING A NEW MOON","C"
  84. 30000  REM  HARD LEVEL DATA
  85. 30010  DATA "WHICH PLANET ROTATES IN A RETROGRADE    MOTION?","MARS","SATURN","VENUS","C"
  86. 30020  DATA "WHAT MEASUREMENT OF DISTANCE IS THE     GREATEST?","LIGHT YEAR","ASTRONOMICAL UNIT","PARSEC","C"
  87. 30030  DATA "THE LOWER THE VISUAL MAGNITUDE OF A     STAR THEN:","THE BRIGHTER THE STAR IS","THE DIMMER THE STAR IS","THE DENSER THE STAR IS","A"
  88. 30040  DATA "WHICH PLANET HAS THE LARGEST INCLINATIONTO THE ECLIPTIC?","MERCURY","PLUTO","SATURN","B"
  89. 30050  DATA "WHICH OF THE FOLLOWING IS A CLASS G     STAR?","SIRIUS","ALPHA CENTAURI","ARCTURAS","B"
  90. 30060  DATA "WHICH OF THE FOLLOWING STARS IS A       RED GIANT?","CAPELLA","BETELGEUSE","SIRIUS","B"
  91. 30070  DATA  "WHAT IS THE DIFFERENCE BETWEEN A NOVA   AND A SUPER NOVA?","A NOVA IS A STAR BLOWING UP AND A       SUPER NOVA IS A GALAXY BLOWING UP."
  92. 30072  DATA "A NOVA IS WHEN ONLY THE STAR'S OUTER    SHELL EXPLODES AWAY AND A SUPER NOVA    IS WHEN THE ENTIRE STAR EXPLODES."
  93. 30074  DATA "A NOVA IS A PULSATING STAR OF AVERAGE   ABSOLUTE VISUAL MAGNITUDE AND A SUPER   NOVA IS A PULSATING STAR OF VERY LOW    VISUAL MAGNITUDE.","B"
  94. 30080  DATA "WHICH STAR HAS THE LOWEST APPARENT      VISUAL MAGNITUDE?","VEGA","REGULAS","SIRIUS","C"
  95. 30090  DATA "HOW FAR FROM OUR SUN IS A STAR MEASURED FOR ABSOLUTE VISUAL MAGNITUDE?","1 PARSEC","10 PARSECS","20 LIGHT YEARS","B"
  96. 30100  DATA "WHAT IS A BOLIDE?","A BINARY STAR","A VERY LOUD AND VERY BRIGHT METEOR","A TYPE OF MOON ROCK","B"
  97. 40000  REM  BONUS LEVEL DATA
  98. 40010  DATA   "WHICH OF THE FOLLOWING DO NOT           GO TOGETHER?","TROPOSPHERE","CHROMOSPHERE","PHOTOSPHERE","A"
  99. 40020  DATA "WHAT IS THE MAXIMUM NUMBER OF ECLIPSES, SOLAR AND LUNAR, THAT CAN EVER OCCUR IN ONE YEAR?","5","6","7","C"
  100. 40030  DATA "WHAT IS THE MAXIMUM DIAMETER OF THE     MOON'S UMBRA THAT CAN BE ON THE EARTH'S SURFACE DURING A TOTAL SOLAR ECLIPSE?","79.5 MILES","167 MILES","145 MILES","B"
  101. 40040  DATA "WHAT IS THE PERIOD OF THE PRECESSION    OF THE EQUINOXES?","20,000 YEARS","26,000 YEARS","42,000 YEARS","B"
  102. 40050  DATA "WHO PROPOSED THE HELIOCENTRIC CONCEPT   OF THE SOLAR SYSTEM?","CLAUDIS PTOLEMY","NICOLAUS COPERNICUS","CARL SAGAN","B"
  103. 40060  DATA "THERE ARE TWO KNOWN WORLDS TO BE        CURRENTLY VOLCANICALLY ACTIVE. ONE IS   THE EARTH. WHAT IS THE OTHER?","IO","MARS","MIMAS","A"
  104. 40070  DATA  "THIS SATELLITE HAS THE ONLY KNOWN       ATMOSPHERE IN OUR SOLAR SYSTEM.         THE SATELLITE IS CALLED:","TITAN","GANYMEDE","DEIMOS","A"
  105. 40080  DATA "ORBITING AROUND THE SUN IN JUPITER'S    ORBIT, 60 DEGREES IN FRONT AND          60 DEGREES BEHIND JUPITER, ARE TWO      GROUPS OF ASTEROIDS. WHAT IS THE NAME   OF THIS GROUP OF ASTEROIDS?","CERES","EROS","TROJAN","C"
  106. 40090  DATA   "WHEN DOES A COMET'S TAIL TRAIL AWAY     FROM THE SUN?","ON ITS WAY TOWARDS THE SUN.","ON ITS WAY AWAY FROM THE SUN.","IT ALWAYS TRAILS ITS TAIL AWAY FROM     THE SUN.","C"
  107. 40100  DATA "WHAT IS THE ORBITAL VELOCITY OF         THE EARTH?","18.5 MILES PER SECOND","16 MILES PER SECOND","27.5 MILES PER SECOND","A"